home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Lattice C v5.02 d4.adf / examples / debugger / regions.cpr < prev    next >
Text File  |  1988-11-07  |  545b  |  15 lines
  1. /* Display the Memory regions */
  2. execbase = import("00000004"x,4)
  3. liboff = 322
  4. nodebase = import(offset(execbase, liboff), 4)
  5.  
  6. do while(import(nodebase,4) ~= "00000000"x)
  7.    attr  = 'attr' c2x(import(offset(nodebase,14),2))
  8.    lower = 'lower' c2x(import(offset(nodebase,20),4))
  9.    upper = 'upper' c2x(import(offset(nodebase,24),4))
  10.    first = 'first' c2x(import(offset(nodebase,16),4))
  11.    free  = 'free' c2d(import(offset(nodebase,28),4))||'.'
  12.    'd "'||c2x(nodebase) attr lower upper first free||'"'
  13.    nodebase = import(nodebase,4)
  14. end
  15. exit(0)